﻿Partial Public Class CbHTFkSP_ExtendForm
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtToday.Text = Format(Today, "yyyy-MM-dd")
        '2009-01-24：判断是否授权使用“成本管理”
        Dim myPublicMNG As New Mysoft.PubProject.Business.PublicMNG
        txtLicenseCbgl.Text = IIf(myPublicMNG.IsLicenseApplication("成本管理"), "1", "0")
        ResultTypeGUID.Text = IIf(Request.QueryString("processguid") Is Nothing, "", Request.QueryString("processguid"))
    End Sub

End Class